home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / windows / winutil / explore.gbl < prev    next >
Encoding:
Text File  |  1992-02-05  |  2.1 KB  |  57 lines
  1. ' Global Module - Explore Visual Basic
  2. '
  3. ' -------------------------------------------------------------------------
  4. '               Copyright (C) 1992 Susie Parrent
  5. '
  6. ' You may use this software at no charge provided that you agree
  7. ' that the author, New Riders Publishing  and Microsoft have no
  8. ' warranty,  obligations or liability for any files included in the
  9. ' sample files provided herein.
  10. '
  11. ' The software is owned by Microsoft or its suppliers and is
  12. ' protected by United States copyright laws and international
  13. ' treaty provisions.  Therefore, you must treat the software like
  14. ' any other copyrighted material (e.g., a book or musical recording)
  15. ' EXCEPT that you may either (a) make one copy of the software solely
  16. ' for backup or archival purposes, or (b) transfer the software to a
  17. ' single hard disk provided you keep the original solely for backup
  18. ' or archival purposes.  You may not copy the written materials
  19. ' accompanying the software.
  20. '
  21. ' It may NOT be used in any training for which a fee is charged
  22. ' without the express written permission of the author.
  23.  
  24. ' ------------------------------------------------------------------------
  25.  
  26. Global Const TRUE = -1
  27. Global Const FALSE = 0
  28.  
  29. ' BackColor (standard RGB colors: form)
  30. Global Const LIGHT_YELLOW = &H80FFFF
  31. Global Const WHITE = &HFFFFFF
  32.  
  33. Global Const KEY_F1 = &H70
  34.  
  35. '   Help engine declarations.
  36. '  Commands to pass WinHelp()
  37. Global Const HELP_CONTEXT = &H1     ' Display topic identified by number in Data
  38. Global Const HELP_QUIT = &H2        ' Terminate help
  39. Global Const HELP_INDEX = &H3       ' Display index
  40. Global Const HELP_HELPONHELP = &H4  ' Display help on using help
  41.  
  42. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  43.  
  44. Global HelpfileName As String
  45.  
  46. ' Constants for various help topics
  47.  
  48. Global Const HOW_TO_USE = 100&
  49. Global Const ABOUT_FORM1 = 200&
  50. Global Const ABOUT_FORM2 = 300&
  51. Global Const ABOUT_FORM3 = 400&
  52. Global Const ABOUT_FORM4 = 500&
  53. Global Const ABOUT_FORM5 = 600&
  54. Global Const ABOUT_FORM6 = 700&
  55. Global Const NULL = 0&
  56.  
  57.